  .  �   k820309              19.0        �yf                                                                                                          
       working_valuer.f90 WORKING_VALUER_MOD                                                     
                        �                                  
                                                                                           
               10(        `                                                                    
    #LABOR    #EFFECTIVE_WAGE    #CAPITAL    #KPRIME    #KDIM 	   #TR 
   #R    p          5 O p            5 O p                                    
                                       
                
                                       
                
                                       
               
                                                      
    p          5 O p            5 O p                                    
                                  	                     
                                  
     
                
                                       
                   @                                    �              
      p          p �           p �                                                                           
       %         @                                                    
       #LABOR    #CAPITAL    #KPRIME    #TR    #R    #W              
                                       
                
                                       
                
                                       
                
                                       
                
                                       
                
                                       
      %         @                                                   
       #AX    #BX    #CX    #FUNC    #TOL    #XMIN    #TOTCONSUMPTION    #AGE              
                                       
                
                                       
                
                                       
      "                                                
               
                                       
                                                      
                 
                                       
                
                                             %         @  @                                                 
       #C_CON    #TOTCONSUMPTION     #AGE !             
                                       
                
                                        
                
                                  !                                                        "     
                                                    #     
       %         @                                $                    
       #C %   #E &   #LABOR '   #DISCOUNT (   #VPRIME )   #AD_EQIV *             
                                  %     
                
                                  &     
                
                                  '     
                
                                  (     
                
                                  )     
                
                                  *     
                   @                               +     Q              
      p          p Q           p Q                         #         @                                   ,                    #AGE -   #CAPITAL .   #TEMP /   #TR 0   #R 1   #PSI 2   #WAGE 3   #SHOCK_PI 4   #VPRIME_TEMP 5   #V_OUT 6   #K_OUT 7   #L_OUT 8   #PARTPROD 9   #HBAR :             
  @                               -                     
  @                               .     
                
  @                               /                     
  @                               0     
                
  @                               1     
                
  @                               2     
                
  @                               3     
                
                                  4     
              
    p          p 
           p 
                                  
                                  5                    
    p          p 
         5 � p        r /       p 
         5 � p        r /                               D                                 6     
                 D @                               7     
                 D @                               8     
                 
  @                               9     
                
  @                               :     
      %         @                               ;                    
       #AX <   #BX =   #CX >   #FUNC ?   #TOL @   #XMIN A   #CAPITAL B   #AGE C   #TR D   #RATE E   #WAGE F   #PSI G   #VPRIME H   #PARTPROD J   #HBAR K   #TEMP I   #K_OUT L                           
  @                               <     
                
                                  =     
                
  @                               >     
      "                                         ?      
               
                                  @     
                D                                 A     
                 
@ @                               B     
                
@ @                               C                     
@ @                               D     
                
@ @                               E     
                
@ @                               F     
                
@ @                               G     
               
@ @                               H                    
    p          5 � p        r I       5 � p        r I                               
@ @                               J     
                
@ @                               K     
                
@ @                               I                     D @                               L     
       %         @  @                            M                    
       #LABOR N   #CAPITAL O   #AGE P   #TR Q   #RATE R   #WAGE S   #PSI T   #VPRIME U   #PARTPROD W   #HBAR X   #TEMP V   #K_OUT Y             
  @                               N     
                
  @                               O     
                
  @                               P                     
  @                               Q     
                
  @                               R     
                
  @                               S     
                
  @                               T     
               
  @                               U                    
    p          5 � p        r V       5 � p        r V                               
  @                               W     
                
  @                               X     
                
  @                               V                     D @                               Y     
       %         @                               Z                    
       #AX [   #BX \   #CX ]   #FUNC ^   #TOL _   #XMIN `   #CAPITAL a   #LABOR b   #AGE c   #TR d   #RATE e   #WAGE f   #PSI g   #VPRIME h   #PARTPROD j   #HBAR k   #TEMP i                            
  @                               [     
                
                                  \     
                
  @                               ]     
      "                                         ^      
               
                                  _     
                D                                 `     
                 
@ @                               a     
                
@ @                               b     
                
@ @                               c                     
@ @                               d     
                
@ @                               e     
                
@ @                               f     
                
@ @                               g     
               
@ @                               h                    
    p          5 � p        r i       5 � p        r i                               
@ @                               j     
                
@ @                               k     
                
@ @                               i           %         @  @                            l                    
       #KPRIME m   #CAPITAL n   #LABOR o   #AGE p   #TR q   #RATE r   #WAGE s   #PSI t   #VPRIME u   #PARTPROD w   #HBAR x   #TEMP v             
  @                               m     
                
  @                               n     
                
  @                               o     
                
  @                               p                     
  @                               q     
                
  @                               r     
                
                                  s     
                
  @                               t     
               
                                  u                    
    p          5 � p        r v       5 � p        r v                               
                                  w     
                
                                  x     
                
  @                               v           #         @                                  y                    #NDATA z   #TDATA {   #YDATA |   #TVAL }   #YVAL    #NDATA2 ~             
  @                               z                    
  @                               {                    
    p          5 � p        r z       5 � p        r z                              
                                  |                    
    p          5 � p        r z       5 � p        r z                              
  @                               }                    
    p          5 � p        r ~       5 � p        r ~                              D                                                     
     p          5 � p        r ~       5 � p        r ~                               
                                  ~           #         @                                  �                    #N �   #X �   #XVAL �   #LEFT �   #RIGHT �             
                                  �                    
                                  �                    
    p          5 � p        r �       5 � p        r �                               
                                  �     
                D                                 �                      D                                 �               �   .      fn#fn    �   @   J   FUNCTIONS_MOD      @   J   PARAMETERS_MOD '   N  r       SHOCKSN+PARAMETERS_MOD +   �        C_UPPER_FNC2+FUNCTIONS_MOD 1   �  @   a   C_UPPER_FNC2%LABOR+FUNCTIONS_MOD :     @   a   C_UPPER_FNC2%EFFECTIVE_WAGE+FUNCTIONS_MOD 3   E  @   a   C_UPPER_FNC2%CAPITAL+FUNCTIONS_MOD 2   �  �   a   C_UPPER_FNC2%KPRIME+FUNCTIONS_MOD 0   )  @   a   C_UPPER_FNC2%KDIM+FUNCTIONS_MOD .   i  @   a   C_UPPER_FNC2%TR+FUNCTIONS_MOD -   �  @   a   C_UPPER_FNC2%R+FUNCTIONS_MOD %   �  �       KGRID+PARAMETERS_MOD $   }  @       EBAR+PARAMETERS_MOD &   �  �       WORKCON+FUNCTIONS_MOD ,   G  @   a   WORKCON%LABOR+FUNCTIONS_MOD .   �  @   a   WORKCON%CAPITAL+FUNCTIONS_MOD -   �  @   a   WORKCON%KPRIME+FUNCTIONS_MOD )     @   a   WORKCON%TR+FUNCTIONS_MOD (   G  @   a   WORKCON%R+FUNCTIONS_MOD (   �  @   a   WORKCON%W+FUNCTIONS_MOD ,   �  �       ENERGY_SHARER+FUNCTIONS_MOD /   i  @   a   ENERGY_SHARER%AX+FUNCTIONS_MOD /   �  @   a   ENERGY_SHARER%BX+FUNCTIONS_MOD /   �  @   a   ENERGY_SHARER%CX+FUNCTIONS_MOD 1   )	  @      ENERGY_SHARER%FUNC+FUNCTIONS_MOD 0   i	  @   a   ENERGY_SHARER%TOL+FUNCTIONS_MOD 1   �	  @   a   ENERGY_SHARER%XMIN+FUNCTIONS_MOD ;   �	  @   a   ENERGY_SHARER%TOTCONSUMPTION+FUNCTIONS_MOD 0   )
  @   a   ENERGY_SHARER%AGE+FUNCTIONS_MOD 4   i
  x       ENERGY_SHARE_EQUATION+FUNCTIONS_MOD :   �
  @   a   ENERGY_SHARE_EQUATION%C_CON+FUNCTIONS_MOD C   !  @   a   ENERGY_SHARE_EQUATION%TOTCONSUMPTION+FUNCTIONS_MOD 8   a  @   a   ENERGY_SHARE_EQUATION%AGE+FUNCTIONS_MOD "   �  @       PE+PARAMETERS_MOD $   �  @       TAUE+PARAMETERS_MOD %   !  �       VALUER+FUNCTIONS_MOD '   �  @   a   VALUER%C+FUNCTIONS_MOD '   �  @   a   VALUER%E+FUNCTIONS_MOD +   1  @   a   VALUER%LABOR+FUNCTIONS_MOD .   q  @   a   VALUER%DISCOUNT+FUNCTIONS_MOD ,   �  @   a   VALUER%VPRIME+FUNCTIONS_MOD -   �  @   a   VALUER%AD_EQIV+FUNCTIONS_MOD 1   1  �       ADULT_EQUIVALENCE+PARAMETERS_MOD    �  �       WORKING_VALUER #   �  @   a   WORKING_VALUER%AGE '   �  @   a   WORKING_VALUER%CAPITAL $   '  @   a   WORKING_VALUER%TEMP "   g  @   a   WORKING_VALUER%TR !   �  @   a   WORKING_VALUER%R #   �  @   a   WORKING_VALUER%PSI $   '  @   a   WORKING_VALUER%WAGE (   g  �   a   WORKING_VALUER%SHOCK_PI +   �  �   a   WORKING_VALUER%VPRIME_TEMP %   �  @   a   WORKING_VALUER%V_OUT %     @   a   WORKING_VALUER%K_OUT %   O  @   a   WORKING_VALUER%L_OUT (   �  @   a   WORKING_VALUER%PARTPROD $   �  @   a   WORKING_VALUER%HBAR            BRENT      @   a   BRENT%AX    V  @   a   BRENT%BX    �  @   a   BRENT%CX    �  @      BRENT%FUNC      @   a   BRENT%TOL    V  @   a   BRENT%XMIN    �  @   a   BRENT%CAPITAL    �  @   a   BRENT%AGE      @   a   BRENT%TR    V  @   a   BRENT%RATE    �  @   a   BRENT%WAGE    �  @   a   BRENT%PSI      �   a   BRENT%VPRIME    �  @   a   BRENT%PARTPROD    
  @   a   BRENT%HBAR    J  @   a   BRENT%TEMP    �  @   a   BRENT%K_OUT    �  �       OBJ_1    �  @   a   OBJ_1%LABOR    �  @   a   OBJ_1%CAPITAL      @   a   OBJ_1%AGE    Y  @   a   OBJ_1%TR    �  @   a   OBJ_1%RATE    �  @   a   OBJ_1%WAGE      @   a   OBJ_1%PSI    Y  �   a   OBJ_1%VPRIME      @   a   OBJ_1%PARTPROD    M  @   a   OBJ_1%HBAR    �  @   a   OBJ_1%TEMP    �  @   a   OBJ_1%K_OUT            BRENT2      @   a   BRENT2%AX    U  @   a   BRENT2%BX    �  @   a   BRENT2%CX    �  @      BRENT2%FUNC       @   a   BRENT2%TOL    U   @   a   BRENT2%XMIN    �   @   a   BRENT2%CAPITAL    �   @   a   BRENT2%LABOR    !  @   a   BRENT2%AGE    U!  @   a   BRENT2%TR    �!  @   a   BRENT2%RATE    �!  @   a   BRENT2%WAGE    "  @   a   BRENT2%PSI    U"  �   a   BRENT2%VPRIME     	#  @   a   BRENT2%PARTPROD    I#  @   a   BRENT2%HBAR    �#  @   a   BRENT2%TEMP    �#  �       OBJ_UTILS !   �$  @   a   OBJ_UTILS%KPRIME "   �$  @   a   OBJ_UTILS%CAPITAL     %  @   a   OBJ_UTILS%LABOR    Y%  @   a   OBJ_UTILS%AGE    �%  @   a   OBJ_UTILS%TR    �%  @   a   OBJ_UTILS%RATE    &  @   a   OBJ_UTILS%WAGE    Y&  @   a   OBJ_UTILS%PSI !   �&  �   a   OBJ_UTILS%VPRIME #   M'  @   a   OBJ_UTILS%PARTPROD    �'  @   a   OBJ_UTILS%HBAR    �'  @   a   OBJ_UTILS%TEMP #   (  �       SPLINE_LINEAR_VAL1 )   �(  @   a   SPLINE_LINEAR_VAL1%NDATA )   �(  �   a   SPLINE_LINEAR_VAL1%TDATA )   �)  �   a   SPLINE_LINEAR_VAL1%YDATA (   >*  �   a   SPLINE_LINEAR_VAL1%TVAL (   �*  �   a   SPLINE_LINEAR_VAL1%YVAL *   �+  @   a   SPLINE_LINEAR_VAL1%NDATA2    �+  u       RVEC_BRACKET1     [,  @   a   RVEC_BRACKET1%N     �,  �   a   RVEC_BRACKET1%X #   O-  @   a   RVEC_BRACKET1%XVAL #   �-  @   a   RVEC_BRACKET1%LEFT $   �-  @   a   RVEC_BRACKET1%RIGHT 